home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 25 / AMIGAplus Sonderheft 25 (2000)(Falke)(DE)(Track 1 of 4)[!].iso / Updates / Datatypes / WarpJPEGdt / Install_WarpJPEG next >
Text File  |  2000-01-12  |  4KB  |  175 lines
  1. ; $VER: Install_WarpJPEG 1.1 (12.1.2000)
  2. ;   by Oliver Roberts (oliver.roberts@iname.com)
  3.  
  4. (if (= (exists "Env:Language") 1)
  5.     (set @language (getenv "Language"))
  6. )
  7.  
  8. ;*****************
  9. ; English strings
  10. ;
  11. (set #str-kick3 "You must be running Kickstart 3.0 or higher to use datatypes.")
  12. (set #str-installdt "Installing Datatype")
  13. (set #str-installclass "Installing WarpJPEG.datatype class")
  14. (set #str-installdes "Installing Descriptor")
  15. (set #str-wrongcpu "You must have at least a 68040 and PowerPC processor to use this datatype.")
  16. (set #str-oldpicdt (cat
  17.     "WarpJPEG.datatype needs picture.datatype v43 or higher.\n\n"
  18.     "Such a datatype is supplied with AmigaOS 3.5, P96 and CyberGraphX."
  19. ))
  20. (set #str-noppc (cat
  21.     "WarpJPEG.datatype requires a PowerPC processor and WarpUp Release "
  22.     "4 or higher."
  23. ))
  24. (set #str-backupdesc (cat
  25.     "You already have a JPEG datatype descriptor installed.  Would you "
  26.     "like to keep a backup for safe-keeping?\n\n(if this is your first "
  27.     "time installing WarpJPEG.datatype, you probably should)"
  28. ))
  29. (set #str-backup "Backup")
  30. (set #str-overwrite "Overwrite")
  31. (set #str-backupdir "Where should the JPEG descriptor be backed up to?")
  32. (set #str-backingup "Backing up files")
  33. (set #str-reboot (cat
  34.     "You may need to reboot for the changes to take effect."
  35. ))
  36. (set #str-backupjfifdir "Where should the JFIF descriptor(s) be backed up to?")
  37. (set #str-backupjfif (cat
  38.     "You have a JFIF datatype descriptor(s) installed.  These will need "
  39.     "to be removed in order for WarpJPEG.datatype to be used. "
  40.     "If you wish, these can be copied to another directory before they "
  41.     "are permanently deleted."
  42. ))
  43. (set #str-erase "Erase")
  44. (set #str-deldesc "Deleting DEVS:Datatypes/JFIF#?")
  45.  
  46. ;**********************
  47. ; Compatibility checks
  48. ;
  49. (set @default-dest "")
  50. (set #cpu (database "cpu"))
  51.  
  52. (if (< (/ (getversion) 65536) 39)
  53.     (abort #str-kick3)
  54. )
  55.  
  56. (if (NOT (OR (= #cpu "68040") (= #cpu "68060")))
  57.     (abort #str-wrongcpu)
  58. )
  59.  
  60. (set #ppc 0)
  61. (if (exists "LIBS:powerpc.library")
  62.     (
  63.         (set #ppcver (/ (getversion "LIBS:powerpc.library") 65536))
  64.         (if (>= #ppcver 15) (set #ppc 1))
  65.     )
  66. )
  67. (if (= #ppc 0)
  68.     (abort #str-noppc)
  69. )
  70.  
  71. (set #picdt-ok 0)
  72. (if (exists "SYS:Classes/Datatypes/picture.datatype")
  73.     (
  74.         (set #pdtver (/ (getversion "SYS:Classes/Datatypes/picture.datatype") 65536))
  75.         (if (>= #pdtver 43) (set #picdt-ok 1))
  76.     )
  77. )
  78. (if (= #picdt-ok 0)
  79.     (abort #str-oldpicdt)
  80. )
  81.  
  82. ;*************
  83. ; Here we go!
  84. ;
  85. (welcome "")
  86.  
  87. (working #str-installdt)
  88.  
  89. (copylib
  90.     (help @copylib-help)
  91.     (prompt #str-installclass)
  92.     (source "Classes/Datatypes/WarpJPEG.datatype")
  93.     (dest "SYS:Classes/DataTypes")
  94.     (confirm)
  95. )
  96.  
  97. (set #backupdir "SYS:Storage/Datatypes")
  98.  
  99. (if (exists "DEVS:Datatypes/JPEG")
  100.     (if    (askbool
  101.             (prompt #str-backupdesc)
  102.             (help "")
  103.             (default 0)
  104.             (choices #str-backup #str-overwrite)
  105.         )
  106.         (
  107.             (set #backupdir
  108.                 (askdir
  109.                     (prompt #str-backupdir)
  110.                     (help @askdir-help)
  111.                     (default #backupdir)
  112.                 )
  113.             )
  114.             (copyfiles
  115.                 (help @copyfiles-help)
  116.                 (prompt #str-backingup)
  117.                 (source "DEVS:DataTypes/JPEG")
  118.                 (dest #backupdir)
  119.                 (infos)
  120.                 (confirm)
  121.             )
  122.         )
  123.     )
  124. )
  125.  
  126. (copyfiles
  127.     (help @copyfiles-help)
  128.     (prompt #str-installdes)
  129.     (source "Devs/DataTypes/JPEG")
  130.     (dest "DEVS:DataTypes")
  131.     (infos)
  132.     (confirm)
  133. )
  134.  
  135. (if (exists "DEVS:Datatypes/JFIF")
  136.     (
  137.         (if    (askbool
  138.                 (prompt #str-backupjfif)
  139.                 (help "")
  140.                 (default 0)
  141.                 (choices #str-backup #str-erase)
  142.             )
  143.             (
  144.                 (set #backupdir
  145.                     (askdir
  146.                         (prompt #str-backupjfifdir)
  147.                         (help @askdir-help)
  148.                         (default #backupdir)
  149.                     )
  150.                 )
  151.                 (copyfiles
  152.                     (help @copyfiles-help)
  153.                     (prompt #str-backingup)
  154.                     (source "DEVS:DataTypes")
  155.                     (pattern "JFIF#?")
  156.                     (dest #backupdir)
  157.                     (infos)
  158.                     (files)
  159.                     (confirm)
  160.                 )
  161.             )
  162.         )
  163.         (delete "DEVS:Datatypes/JFIF#?"
  164.             (prompt #str-deldesc)
  165.             (help "")
  166.             (confirm)
  167.             (optional "force")
  168.         )
  169.     )
  170. )
  171.  
  172. (run "C:AddDataTypes >NIL: REFRESH")
  173.  
  174. (exit #str-reboot)
  175.